PERL Function Call by Value